#!/usr/bin/perl
use warnings;
use strict;

package BaseClass;

#constructor
sub new
{
	my $class = shift;
	
	my($strFirstName, $strLastName) = @_;
	
	#data
	my $self = {
			_strFirstName => $strFirstName,
			_strLastName  => $strLastName
	};

	bless $self, $class;
	
	return $self;
}

#method
sub getFirstName
{
	my $sefl = shift;
	return $sefl->{_strFirstName};
}	

#return true
1;